home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 4 / 64er_Magazin_Sonderheft_04_86-04_1986_Markt__Technik_de_Disk_1_of_2_Side_A.d64 / listing 02.p (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  299b  |  10 lines
  1. 51000 rem befehlszerlegung-codierung -------------------------------------------
  2. 51001 :
  3. 51010 vg$="nimm":vg=1012
  4. 51020 rem suchen ob vg$ in be$ vorkommt
  5. 51030 fori=1 to len(be$)-len(vg$)+1
  6. 51040 : if vg$=mid$(be$,i,len(vg$)) then ve=vg
  7. 51050 nexti
  8. 51060 if ve=0 then printvg$" kommt nicht in be$ vor"
  9. 51070 if ve=1012 then printvg$" kommt in be$ vor"
  10.